﻿Public Class FrmPMAlignTool

    Private Sub FrmPMAlignTool_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'Try
        '    If TBcheck_NO = 1 Then
        '        CogPMAlignEditV21.Subject = gTBCheck(0).Tools.Item("CogPMAlignTool1")
        '        CogPMAlignEditV21.Subject.InputImage = FrmAddProd2.CogRecordDisplay1.Image
        '    ElseIf TBcheck_NO = 2 Then
        '        CogPMAlignEditV21.Subject = gTBCheck(1).Tools.Item("CogPMAlignTool1")
        '        CogPMAlignEditV21.Subject.InputImage = FrmAddProd2.CogRecordDisplay2.Image
        '    Else
        '        MsgBox("TBcheck_NO错误：" & TBcheck_NO)
        '    End If
        'Catch ex As Exception
        '    MsgBox("错误:" & ex.Message.ToString)
        'End Try
    End Sub

End Class